# Loading Packages
library(data.table)
library(lubridate)
library(tidyverse)
library(esquisse)
library(plyr)
library(ggplot2)
library(cowplot)
library(naniar) #for NA exploration
library(sp) #spatial data
library(reshape2)
library(plotly)
library(gissr)
library(leaflet)
library(leaflet.providers)
library(geosphere)
library(DT)Laptop_Sales_Data <- fread("DATA/LaptopSales_red.csv")
#is.data.table(Laptop_Sales_Data)
#summary(Laptop_Sales_Data)
#str(Laptop_Sales_Data)
gg_miss_var(Laptop_Sales_Data, show_pct = TRUE)## [1] "Last Recorded Prices are 406 USD and 530 USD on the same Day with a mean of 468 USD"